home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
090
/
byt86aug.arc
/
MATHREC.ARC
/
POWSER.RUN
< prev
Wrap
Text File
|
1980-01-01
|
1KB
|
48 lines
Program uses a delete-and-add process
to generate i^p for i=1 to 50 / p.
Enter a value for p (power)? 4
Starting sequence:
1 2 3 4 5 6 7 8 9 10 11 12 13
14 15 16 17 18 19 20 21 22 23 24
25 26 27 28 29 30 31 32 33 34 35
36 37 38 39 40 41 42 43 44 45 46
47 48 49 50
Delete every 4 th term:
1 2 3 * 5 6 7 * 9 10 11 * 13 14 15 *
17 18 19 * 21 22 23 * 25 26 27 * 29 30
31 * 33 34 35 * 37 38 39 * 41 42 43 * 45
46 47 * 49 50
Partial sums:
1 3 6 11 17 24 33 43 54 67 81 96
113 131 150 171 193 216 241 267 294
323 353 384 417 451 486 523 561 600 641
683 726 771 817 864 913 963
Delete every 3 rd term:
1 3 * 11 17 * 33 43 * 67 81 * 113 131 *
171 193 * 241 267 * 323 353 * 417 451 *
523 561 * 641 683 * 771 817 * 913 963
Partial sums:
1 4 15 32 65 108 175 256 369 500
671 864 1105 1372 1695 2048 2465 2916
3439 4000 4641 5324 6095 6912 7825 8788
Delete every 2 nd term:
1 * 15 * 65 * 175 * 369 * 671 * 1105 * 1695 *
2465 * 3439 * 4641 * 6095 * 7825 *
Partial sums:
1 16 81 256 625 1296 2401 4096 6561
10000 14641 20736 28561
Ok